home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 29 / 029.d81 / screen grabber (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  126 lines
  1. 10 fori=1to36:t$=t$+"[175]":b$=b$+"[163]":next
  2. 15 fori=1to13:d$=d$+"":next:r$=chr$(13)
  3. 20 xr=781:cl=59903:poke53280,11:poke53281,1
  4. 30 print"[142][147][151]        [172][146][172][187][187][172][146][172][187][187][146][161][172][187][187][146][161][172][162][190][146][161][172][162][190][146][161][188][161][161][146]        ";
  5. 40 printspc(8)"[188][146][188][162] [146][161][161]  [146][161][188][190][190][146][161][188][187] [146][161][188][187] [146][161]  [161]"
  6. 50 printtab(8)"[172][187][146][161][161][146][161][161][172][187][146][161][172][188] [146][161][161]  [146][161][161]  [146][161][161][146][187][161]"
  7. 60 printtab(7)"[169] [146][162][162]  [146][162][162] [188][190][188][190][188][146][162][162][190][188][146][162][162][190][188][190][188][190][223]"
  8. 70 printtab(6)"[169]                          [223]"
  9. 80 printtab(6)"[172][146][172][187][187][146][161][172][187][187] [146][190][188] [146][161][172][187][187][146][161][172][187][187][146][161][172][162][190][146][161][172][187][187]"
  10. 90 printtab(6)"[161][161][162][187][146][161][188][190][190][146][161][188][190][161][146][161][188][190][190][146][161][188][190][190][146][161][188][187] [146][161][188][190][190]"
  11. 100 printtab(6)"[161][161][146][161][161][146][161][172][188] [146][161][161][146][161][161][146][161][161][146][161][161][146][161][161][146][161][161][146][161][161]  [146][161][172][188] "
  12. 110 printtab(6)" [146][162][162] [188][190][188][190][188][190][188][190][188][146][162][162] [188][146][162][162] [188][146][162][162][190][188][190][188][190]"r$"  "t$
  13. 120 print"   setting up[192] please wait 23 seconds "r$"  "b$
  14. 135 h=64:l=48:rem poke204,.
  15. 140 s=7:x=16:n=1:fori=52528to53247:reada$:a=asc(a$):b=asc(right$(a$,n))
  16. 145 ifz8$<>ti$thenz8$=ti$:poke53280,peek(162)
  17. 150 p=x*((a-l)+s*(a>h))+b-l+s*(b>h):pokei,p:next:poke204,1
  18. 160 gosub300:tg$="[213][192][201]":bg$="[202][192][203]"
  19. 170 print"[145][145]"r$tab(7)tg$spc(16)tg$r$tab(7)"[221]a[151][221]ppend or always [221]n[151][221]ew?"
  20. 180 printtab(7)bg$spc(16)bg$
  21. 181 print"[144]append: the [144]append mode takes the"
  22. 182 print"        screen you grab and adds it to"
  23. 183 print"        a program you load into memory."
  24. 184 print"[144]   new: the [144]new mode takes the screen"
  25. 185 print"        you grab and puts it in a"
  26. 186 print"        program by itself."
  27. 190 geta$:ifa$=""then190
  28. 191 print"";:fora=1to11
  29. 192 print"                                       ":next
  30. 193 print"";
  31. 200 ifa$="n"thenm$="new":t=11:goto220
  32. 210 m$="append":t=9:poke52584,44
  33. 220 gosub300:print"[145][145][145]"tab(t)""m$;:p=pos(.):print"[151] option selected"
  34. 230 input"line increment   10[157][157][157][157]";l$:pokexr,12:syscl
  35. 240 l=val(l$):l$=str$(l):ifl<1orl>255thenprint"[145][145]";:goto230
  36. 250 print"[145][145]"tab(p-len(l$))""l$"[151] is the increment"
  37. 251 print"                                       "
  38. 252 print"if you wish to return to loadstar, press";
  39. 253 print"ctrl l[146]. if you wish to continue with"
  40. 254 print"screen grabber, press the [space bar][146]."
  41. 255 print"if you do wish to continue, the only way";
  42. 256 print"to re-connect to loadstar is to re-boot!";
  43. 257 print"choose: ctrl l[146]   or   [space bar][146]"
  44. 258 geta$:ifa$=""then60000
  45. 259 ifa$<>" "then258
  46. 260 sys53130:print"[147][151]  "t$r$"   [192][192][192][192]screen grabber now enabled[192][192][192][192] "r$"  "b$
  47. 270 print"  "t$r$"   press [restore]      to activate   "
  48. 280 print"         [ctrl/restore] to disable    "
  49. 290 print"    key  sys (52528)    to re-enable  ":print"  "b$;:new
  50. 300 fori=9to12:pokexr,i:syscl:next:return
  51. 310 data 20,8a,cf,4c,95,cf,48,8a,48,98
  52. 320 data 48,a5,91,c9,fb,d0,1a,a9,47,a2
  53. 330 data fe,8d,18,03,8e,19,03,20,98,cf
  54. 340 data ad,86,02,8d,87,02,a9,00,85,cf
  55. 350 data 4c,81,ea,a9,c1,a2,fe,8d,18,03
  56. 360 data 8e,19,03,20,59,a6,20,44,a6,a2
  57. 370 data 70,9a,a9,e6,85,73,20,33,a5,a5
  58. 380 data 22,48,85,7a,aa,a5,23,48,85,7b
  59. 390 data e4,2b,d0,07,c5,2c,d0,03,88,f0
  60. 400 data 1a,c6,7b,20,73,00,c9,00,d0,f9
  61. 410 data b1,7a,c5,22,d0,f3,c8,b1,7a,c5
  62. 420 data 23,f0,03,88,d0,e9,c8,b1,7a,85
  63. 430 data 14,c8,b1,7a,85,15,ad,02,03,48
  64. 440 data ad,03,03,48,a9,17,a2,cf,8d,02
  65. 450 data 03,8e,03,03,a2,ff,86,bf,86,fc
  66. 460 data 86,fd,86,fe,86,ff,86,9c,a5,cc
  67. 470 data d0,0c,c6,cf,d0,08,a5,ce,ae,87
  68. 480 data 02,20,1c,ea,a5,9c,d0,02,85,ff
  69. 490 data a2,00,86,9c,a6,bf,e8,e0,19,d0
  70. 500 data 03,4c,28,cf,86,bf,20,f0,e9,20
  71. 510 data 24,ea,20,b8,ce,aa,a0,27,b1,d1
  72. 520 data c9,20,d0,1a,88,10,f7,20,d8,ce
  73. 530 data 50,03,4c,9e,ce,c9,18,d0,03,4c
  74. 540 data 31,cf,8e,01,02,20,0d,cf,d0,be
  75. 550 data 84,9b,a5,bf,c9,17,d0,06,c0,27
  76. 560 data d0,12,e6,fe,c9,18,d0,0c,c0,27
  77. 570 data f0,04,a0,ff,d0,0b,a0,00,f0,07
  78. 580 data 98,a0,ff,c9,27,d0,02,a2,3b,86
  79. 590 data 9c,20,d8,ce,c8,b1,d1,c9,20,f0
  80. 600 data 13,b1,f3,29,0f,c5,fc,f0,09,85
  81. 610 data fc,aa,bd,da,e8,20,e2,ce,b1,d1
  82. 620 data 29,80,c5,ff,f0,07,85,ff,49,92
  83. 630 data 20,e2,ce,24,fd,30,05,a9,94,20
  84. 640 data e2,ce,b1,d1,29,7f,a2,06,ca,dd
  85. 650 data 9f,cf,90,fa,5d,a5,cf,20,e2,ce
  86. 660 data c4,9b,d0,ba,24,fd,30,08,a0,07
  87. 670 data 20,1d,cf,4c,5f,cf,a9,22,9d,02
  88. 680 data 02,a5,9c,e8,9d,02,02,20,07,cf
  89. 690 data a6,bf,e0,18,f0,03,20,ff,e9,4c
  90. 700 data de,cd,18,a5,14,69,0a,85,14,90
  91. 710 data 02,e6,15,a9,3f,a2,22,8d,00,02
  92. 720 data 8e,01,02,a9,00,85,fb,a2,02,85
  93. 730 data 7a,86,7b,60,b8,a5,bf,d0,fa,38
  94. 740 data a9,93,24,fd,a6,fb,e0,42,d0,18
  95. 750 data 48,98,48,a9,22,9d,02,02,e8,a9
  96. 760 data 3b,9d,02,02,20,07,cf,20,b8,ce
  97. 770 data aa,68,a8,68,9d,02,02,e8,86,fb
  98. 780 data 60,e8,a9,00,9d,02,02,ba,8e,18
  99. 790 data cf,a2,ff,9a,4c,9f,a4,a2,00,9a
  100. 800 data 60,a0,02,b9,ab,cf,20,e2,ce,88
  101. 810 data 10,f7,30,e0,20,b8,ce,a5,9b,c9
  102. 820 data 27,f0,05,20,1b,cf,d0,29,24,fe
  103. 830 data 30,11,a2,ff,e8,bd,b8,cf,9d,00
  104. 840 data 02,d0,f7,20,0d,cf,20,b8,ce,e6
  105. 850 data fd,a0,05,b9,b2,cf,20,e2,ce,88
  106. 860 data d0,f7,84,9b,84,ff,4c,4d,ce,68
  107. 870 data 8d,03,03,68,8d,02,03,68,85,60
  108. 880 data 68,85,5f,a2,18,20,ff,e9,a9,13
  109. 890 data 20,d2,ff,ad,21,d0,29,0f,cd,86
  110. 900 data 02,d0,03,ee,86,02,20,8a,cf,4c
  111. 910 data c3,a6,a9,36,a2,cd,8d,18,03,8e
  112. 920 data 19,03,60,a9,cb,2c,a9,e3,a0,cf
  113. 930 data 4c,1e,ab,00,20,22,23,40,60,40
  114. 940 data 00,05,00,20,c0,3b,22,13,22,3f
  115. 950 data 3a,3b,22,22,3f,3a,22,91,50,cf
  116. 960 data 32,34,31,2c,50,c5,28,32,34,31
  117. 970 data 29,4f,52,31,32,38,00,53,43,52
  118. 980 data 45,45,4e,20,47,52,41,42,42,45
  119. 990 data 52,20,45,4e,41,42,4c,45,44,0d
  120. 992 data 00,53,59,53,28,35,32,35,32,38
  121. 994 data 29,12,3a,52,45,4d,20,54,4f,20
  122. 996 data 52,45,2d,45,4e,41,42,4c,45,0d
  123. 60000 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  124. 60010 print"[147]";:ifer<>63thenend
  125. 60020 load"hello connect",8
  126.